|
Inventor VBA : Automatische Dxf erstellen
freak-tom am 08.02.2007 um 08:58 Uhr (0)
Hallo Forumuser,wie kann ich die Optionen für den DXF Export mit VBA einstellen, bzw. wie sage ich Inventor, das er eine bestimmte .ini Datei aufrufen soll um die optionen einzustellen?Wie kann ich den Inhalt einer .txt Datei einlesen?MfGThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Automatische Dxf erstellen
freak-tom am 20.02.2007 um 11:43 Uhr (0)
Hallo Forumuser,habe jetzt selbst eine Lösung gefunden! Und zwar hab ich 2 .ini Dateien angelegt und lasse diese beim Aufruf des Macros umbennenen und anschließend wieder zurück! Ist vielleicht ein wenig umständlich aber es funktioniert! Die .ini Dateien habe ich von den Rechten noch so geändert, das diese nicht verändert bzw. gelöscht werden können! Hier mein Code!!!Code:Public Sub SaveAsDxf() If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No Document open", 16, "Error" Exit Sub End If ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Read_Only
freak-tom am 09.03.2007 um 09:41 Uhr (0)
Hallo Forumuser,wie kann ich per vba und public sub, also kein Code der an der jeweiligen Datei hängen muss, checken ob die gerade aktive Datei im Inventor schreibgeschützt ist oder nicht?Danke für eure Hilfe!!MfGThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Read_Only
freak-tom am 12.03.2007 um 09:27 Uhr (0)
Hallo Seherich habe folgenden Code getestet!Public Sub test()MsgBox ThisApplication.ActiveDocument.FullFileNameGetAttr (ThisApplication.ActiveDocument.FullFileName)MsgBox vbReadOnlyEnd SubAllerdings liefert dieser Code immer 1 als vbReadOnly!Ich denke das ist der Fall, weil die Datei offen ist oder?Wie kann ich das ganze umgehen? Also Datei muss geöffnet sein dann muss gecheckt werden, ob die Datei gespeichert werden kann oder nicht!MfGThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Events abfangen
freak-tom am 12.03.2007 um 10:53 Uhr (0)
Hallo Forumuser,kann man irgendwie Events abfangen also z.b. den Speichern Event, ohne in jede einzelne Datei ein Macro schreiben zu müssen?Also im Anwendungsprojekt nicht im Dokumentprojekt?MfG Thomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Alle Farben einer Zeichnung verändern
freak-tom am 12.06.2007 um 15:29 Uhr (0)
Hallo Forumuser,kann man im Inventor per VBA alle Layerfarben auf Schwarz setzen, und alle Textstile ebenfalls auf Schwarz? Egal wie die Layer bzw. die Textstile heißen.Das wäre echt toll, da wir im Moment lauter Dunkelblaue Linien (Inventor Standard) haben und dies z.B. beim erstellen einer DXF Datei ziemlich unpraktisch ist! Hier geht es nur um Altdaten, neue Zeichnungen werden schon mit schwarzen Strichen gezeichnet!MfGThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Ausgabe aus Abwicklung
freak-tom am 14.08.2008 um 16:14 Uhr (0)
Hallo Forumuser,ich habe eine wahnsinnige Anforderung an DXF Dateien die automatisch per VBA Makro aus Inventor generiert werden sollen.Die generierung an sich funktioniert! Allerdings wäre es für die Laserleute, richtig genial, wenn in der DXF Datei die Artikelnummer, die in den I-Properties zu finden sind auf der DXF Datei als Text dargestellt wäre! Desweiteren wäre es hilfreich wenn vom zu kleinst umschreibenden Rechteck eines Teiles die lange Seite in X liegen würde!Hat jemand hier Ahnung ob sowas geht ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Ausgabe aus Abwicklung
freak-tom am 15.08.2008 um 08:31 Uhr (0)
Hallo Lothar,geht das wirklich nur später im Mechanical? Eine Lösung, die das ganze direkt aus Inventor macht wäre mir wesentlich sympatischer!Die Artikelnummer soll irgendwo in die DXF Datei hauptsache Sie ist drin! (Also vordefinierte Koordinaten)Für Mechanical habe ich sowas in der Art gefunden!MfGThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungskopf austauschen
freak-tom am 16.09.2009 um 17:57 Uhr (0)
Hallo Muelb,vielleicht als Hilfe mein fertiges Macro, das funktioniert!Code:Public Sub Schriftfeld_ersetzen() MsgBox Environ$("Inventor") If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No Document open", 16, "Error" Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then MsgBox "No Drawing", 16, "Error" Exit Sub End If Dim oApp As Application Set oApp = ThisApplication Dim i As Long Dim oDrawDoc As DrawingDocument Set oDrawDoc = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Automatische Dxf erstellen
freak-tom am 08.02.2007 um 10:36 Uhr (0)
Hallo Forumuser,mein bisheriger Code sieht so ausCode:Public Sub SaveAsDxf() If ThisApplication.Documents.Count = 0 Then MsgBox "No Document open", 16, "Error" Exit Sub Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then MsgBox "No Drawing", 16, "Error" Exit Sub End If Dim dDoc As DrawingDocumentDim fso As ObjectSet fso = CreateObject("Scripting.FilesystemObject")Dim ret As VariantSet dDoc = ThisApplication.ActiveDocumentDim oProp As Inventor ...
|
| In das Form Inventor VBA wechseln |
